CAAElliptical_MinorPlanetMagnitude <-
function(H, delta, G, r, PhaseAngle){
.Call("CAAElliptical_MinorPlanetMagnitude", H, delta, G, r, PhaseAngle)
}
